﻿Imports Microsoft.Reporting.WinForms
Public Class Phieuchi_Report
    Dim dt As DataTable
    Private Sub RLoaitaikhoan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ErpharmaDataSet.ketoantienmat' table. You can move, or remove it, as needed.
        Me.KetoantienmatTableAdapter.Fill(Me.ErpharmaDataSet.ketoantienmat)

        Me.DonvisudungTableAdapter.Fill(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.setParameter(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.LocalReport.SetParameters(New ReportParameter("tienchu", "Ba trăm triệu sáu trăm ngàn đồng việt nam "))
        Me.IReportViewer1.LocalReport.SetParameters(New ReportParameter("ngaythangnam", "Ngày này Tháng này Năm trước "))
        Me.IReportViewer1.RefreshReport()
    End Sub
    Public Sub setDt(ByVal dt As DataTable)
        Me.ErpharmaDataSet.ketoantienmat.Clear()
        Me.dt = dt
        Me.ErpharmaDataSet.ketoantienmat.Merge(dt)
    End Sub

    Private Sub IReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IReportViewer1.Load

    End Sub
End Class